home *** CD-ROM | disk | FTP | other *** search
/ Technotools / Technotools (Chestnut CD-ROM)(1993).ISO / database / cbin / randmus.prg < prev    next >
Text File  |  1987-06-20  |  456b  |  24 lines
  1. * randmus.prg
  2. * emulate early 70's sci-fi movie image of computers!
  3.  
  4. load \cbin\rand2
  5. load \cbin\beep
  6. set talk off
  7.  
  8. pitch = 0
  9. dur = 0
  10. seed = val(substr(time(),7,2))  && second hand
  11. call rand2 with seed
  12.  
  13. maxdur = 10
  14.  
  15. @ 3,0 say "DO NOT FOLD, SPINDLE, OR MUTILATE"
  16.  
  17. do while .t.
  18.     call rand2 with pitch
  19.     call rand2 with dur
  20.     p = str(mod(pitch,11000),5) + " " + str(mod(dur,maxdur),3)
  21.     @ 5,0 say p
  22.     call beep with p
  23. enddo
  24.